home *** CD-ROM | disk | FTP | other *** search
/ Apple II Magazines (DO) / Micro on the Apple Volume 2 (1981)(Micro Ink).zip / Micro on the Apple Volume 2 (1981)(Micro Ink).do / DIRECTORY.int < prev    next >
Text File  |  1996-12-24  |  1KB  |  40 lines
  1. 1 REM  ************************
  2. 2 REM  *                      *
  3. 3 REM  *    CASSETTE  O.S.    *
  4. 4 REM  *   BY ROBERT STEIN    *
  5. 5 REM  *                      *
  6. 6 REM  *        CASSOS        *
  7. 7 REM  *                      *
  8. 8 REM  *  COPYRIGHT (C) 1981  *
  9. 9 REM  *   MICRO INK, INC.    *
  10. 10 REM  * CHELMSFORD, MA 01824 *
  11. 11 REM  *  ALL RIGHTS RESERVED *
  12. 12 REM  *                      *
  13. 13 REM  ************************
  14. 14 REM 
  15. 15 REM 
  16. 16 REM 
  17. 20 N=1:CALL -936:VTAB (10):DIM X$(1)
  18. 25 INPUT "INSERT LIBRARY TAPE AND DEPRESS 'RETURN'",X$
  19. 30  POKE -16289,0:CALL -936:GOSUB 300
  20. 40 PRINT "FILE #  PROGRAM NAME  BYTES"
  21. 50 PRINT "------  ------------  -----"
  22. 60 CALL 840:CALL -259
  23. 70 IF  PEEK (688)= ASC("E") THEN 210
  24. 80 IF  PEEK (688)= ASC("S") THEN 200
  25. 100 REM  LOAD PROGRAM INTO MEMORY BELOW THE DIRECTORY PROGRAM.
  26. 105 D= PEEK (856)-3
  27. 110  POKE 60, PEEK (700): POKE 61,( PEEK (701)-3)
  28. 120  POKE 62,255: POKE 63,D:CALL -259
  29. 130 PRINT N,: POKE 789,2: POKE 788,177:CALL 785
  30. 140 M=( PEEK (700)/2)+ PEEK (701)*128
  31. 150 L=2*(( PEEK (856)*128+128)-M):N=N+1
  32. 160 PRINT "    ";L:GOTO 60
  33. 200 GOSUB 300:PRINT "NO EOF MARK"
  34. 210  POKE -16290,0:GOSUB 300
  35. 230 PRINT :PRINT "***END OF FILE***"
  36. 240 CALL -155
  37. 300 FOR I=1 TO 30
  38. 305 L= PEEK (-16336)+ PEEK (-16336):NEXT I
  39. 310 CALL -1059:RETURN 
  40.